Enviando eMail com Anexo através do Delphi

Enviando eMail com Anexo através do Delphi

Está é uma dica muito simples, porém muitas pessoas não consegue enviar email com anexo utilizando o Delphi, porque tentam usar o ShellExecute.

Após o recebimento de inúmeros email's sempre falando sobre o mesmo assunto, resolvi disponibilizar esse exemplo.

Para resolver esse pequeno problema, usamos o componente Chamado NMSMTP que encontra-se na paleta FASTNET. Utilizando-se desse componentes você pode enviar e receber email's com muita facilidade.

Vamos Lá !!

1 - Monte a seguinte Tela :

Este form contém 6 Edit's; 1 Memo; 1 NMSMTP; 1 Button

Para fazer esse sistema você não precisará lançar mão de muito trabalho (aliás nenhum trabalho é muito simples). O Delphi faz praticamente tudo.

Dentro do Botão enviar, adicione o seguinte código

Após adicionar esse código, é só testar, e Bom Divertimento !!!

Marcos Paulo

marcos_paulo@bigfoot.com